Family Forum 257/SOMC Family Forum 257 - Disc 1.iso/family1.dir/00001_Script_1

Text File | 1998-10-27 | 4KB | 158 lines

on startMovie
  global WHICHSNEAK
  set WHICHSNEAK to "FAMILY" -- CHOICES:PROD,MAC,KIDS,GAME,FAMILY,EDU

--  * This declares the variables for the finger cursor. *

  global FINGER, FINGERMASK
  set FINGER to the number of member "Finger1"
  set FINGERMASK to the number of member "Finger2"

  --* set the paths and exe for the setups

  global F1SETUP,F2SETUP,F3SETUP,F4SETUP
  set F1SETUP to "@\xchess\SETUPx.EXE" -- xchess
  set F2SETUP to "@\SETUP.EXE" -- $ town
  set F3SETUP to "@\SETUP.EXE" -- HEATHY
  set F4SETUP to ""


  --* set weblink URLs

  global LINK1,LINK2,LINK3,LINK4,LINK5,LINK6,LINK7,LINK8,LINK9,LINK10
  set link1 to "http://www.hometime.com"
  set link2 to "http://www.santaclaus.com"
  set link3 to "http://www.night.net/christmas"
  set link4 to "http://www.script-o-rama.com"
  set link5 to "http://www.annefrank.nl/htmleng/af/AF.html"
  set link6 to "http://www.4christmas.com"
  set link7 to "http://www.ty.com/"
  set link8 to "http://www.aardman.com/wandg/"
  set link9 to "http://place.scholastic.com/goosebumps/indexa.htm"
  set link10 to "http://www.primenet.com/~kringle"

  glowClear()

end




--* This handler hides/shows the glow images. eg: glow(5,TRUE) *

on glow WHICHSPRITE, TRUEORFALSE
  set the visible of sprite WHICHSPRITE to TRUEORFALSE
end glow

--* TURN OF ALL GLOWS ON START
on glowClear
  repeat with i = 50 to 67
    glow(i)
  end repeat
end

--* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*

on textglow WHICHMEMBER, COLORNUMBER
  set the foreColor of member WHICHMEMBER to COLORNUMBER
end textglow

--* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *

on openMIAW MYWINDOW
  set myRect=the rect of window MYWINDOW
  set myStage=the rect of the Stage
  set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  set the rect of window MYWINDOW=myNewRect
  set the windowType of window MYWINDOW to 2
  open window MYWINDOW
end openMIAW


--* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
on doRollout numsprite
  glow(numsprite,FALSE)
  cursor 0
end

--* PLAYS A CLICK SOUND

on doClick
  puppetsound 1,"clicksound"
  updateStage
end




--* CHECK THE ANSWER FOR WORDWIZE

on  checkAnswer

  global CORRECT,Ncount,ANSWER,TRIES,RIGHT

  put line Ncount of the text of member "ww3" into member "definition"
  set the fontSize of member "definition" to 18
  set the fontstyle of member "definition" to "bold"
  glow(20,TRUE)
  set TRIES to TRIES + 1
  if answer = CORRECT then
    glow(52,TRUE)
    puppetsound 1,"Woww1"
    updateStage
    set RIGHT to RIGHT + 1
  else
    glow(53,TRUE)
    puppetsound 1,"Buzzer2"
    updateStage
  end if
end

on finish

  global TRIES,RIGHT,scoreSTR

  go to "FIN"
  if (TRIES) THEN
    if ((float(RIGHT) / float(TRIES)) > .49) then
      puppetsound 1,"Glfclap1"
      updateStage
    end if
  end if
  set scoreSTR2 to "YOU GOT"&&string(RIGHT)&&"OUT OF"&&string(TRIES)&&"RIGHT"
  set the text of member "scoreSTR" to scoreSTR2
  updateStage

end



-- Delays for x number of seconds
on timedelay SECONDS
  startTimer
  repeat while the timer < SECONDS * 60
    nothing
  end repeat
end


on doRollover numsprite,SOUNDNUM
  glow(numsprite,TRUE)
  global finger,fingermask
  cursor[finger,fingermask]
  updatestage
  case SOUNDNUM of
    1:
      puppetsound 1, "rollsound"
      --  repeat while soundbusy(1)
      --  end repeat
    2:
      puppetsound 1, "rollsound2"
      --  repeat while soundbusy(1)
      --  end repeat
  end case
end